<%

Function porcentagem(valor1, valor2)

	DIM resultado

	If valor2>0 then
		resultado = formatnumber((valor1*100)/valor2,0)
	Else
		resultado = 0
	End If
	
	porcentagem = resultado

End Function
%>